Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/health/medhist.frm

Text File | 1993-07-21 | 20KB | 643 lines

VERSION 2.00
Begin Form medhist
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   0  'None
   Caption         =   "Form3"
   ClientHeight    =   6840
   ClientLeft      =   195
   ClientTop       =   1905
   ClientWidth     =   9525
   Height          =   7245
   Left            =   135
   LinkMode        =   1  'Source
   LinkTopic       =   "Form3"
   ScaleHeight     =   6840
   ScaleWidth      =   9525
   Tag             =   "history"
   Top             =   1560
   Width           =   9645
   Begin AniPushButton AniButton2
      BackColor       =   &H00FFFFFF&
      Height          =   480
      Left            =   4395
      PictDrawMode    =   1  'Autosize control
      Picture         =   MEDHIST.FRX:0000
      Speed           =   162
      TabIndex        =   22
      TextPosition    =   2  'Left
      Top             =   6120
      Width           =   480
   End
   Begin AniPushButton AniButton1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Back Page"
      Height          =   465
      Index           =   1
      Left            =   360
      Picture         =   MEDHIST.FRX:05E2
      Speed           =   162
      TabIndex        =   21
      TextPosition    =   1  'Right
      Top             =   6075
      Width           =   1515
   End
   Begin AniPushButton AniButton1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Next Page"
      Height          =   465
      Index           =   0
      Left            =   6750
      Picture         =   MEDHIST.FRX:148E
      Speed           =   162
      TabIndex        =   20
      TextPosition    =   2  'Left
      Top             =   6000
      Width           =   1440
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   7
      Left            =   4440
      TabIndex        =   16
      Top             =   5160
      Width           =   255
   End
   Begin SSCheck Check3D1
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   7
      Left            =   240
      TabIndex        =   7
      Top             =   5160
      Width           =   255
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   6
      Left            =   4440
      TabIndex        =   15
      Top             =   4800
      Width           =   255
   End
   Begin SSCheck Check3D2
      Caption         =   "  DIABETES"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   7
      Left            =   1440
      TabIndex        =   32
      Top             =   4800
      Width           =   2415
   End
   Begin SSCheck Check3D1
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   6
      Left            =   240
      TabIndex        =   6
      Top             =   4800
      Width           =   255
   End
   Begin SSCheck Check3D4
      Caption         =   "  BLOOD TRANSFER"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   3
      Left            =   5880
      TabIndex        =   39
      Top             =   4680
      Width           =   2655
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   5
      Left            =   4440
      TabIndex        =   14
      Top             =   4440
      Width           =   255
   End
   Begin SSCheck Check3D2
      Caption         =   "  HERNIA"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   6
      Left            =   1440
      TabIndex        =   31
      Top             =   4320
      Width           =   2415
   End
   Begin SSCheck Check3D4
      Caption         =   "  DEPRESSION"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   1
      Left            =   5880
      TabIndex        =   38
      Top             =   4200
      Width           =   2655
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   4
      Left            =   4440
      TabIndex        =   13
      Top             =   4080
      Width           =   255
   End
   Begin SSCheck Check3D2
      Caption         =   "  ANEMIA"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   5
      Left            =   1440
      TabIndex        =   30
      Top             =   3840
      Width           =   2415
   End
   Begin SSCheck Check3D4
      Caption         =   "  CARDIOVASCULAR"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   0
      Left            =   5880
      TabIndex        =   37
      Top             =   3720
      Width           =   2655
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   3
      Left            =   4440
      TabIndex        =   12
      Top             =   3720
      Width           =   255
   End
   Begin SSCheck Check3D1
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   5
      Left            =   480
      TabIndex        =   5
      Top             =   3480
      Width           =   255
   End
   Begin SSCheck Check3D3
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   2
      Left            =   4440
      TabIndex        =   11
      Top             =   3360
      Width           =   255
   End
   Begin SSCheck Check3D4
      Caption         =   "  COPD"
      Font3D          =   3  'Inset w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0